home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / QBWIZ12.ARJ / EXAMPLE.BAS < prev    next >
BASIC Source File  |  1990-02-10  |  848b  |  24 lines
  1.    REM $INCLUDE: 'ACCESS.BI'
  2.  
  3.    ' Example program demonstrating the use of the ACCESS functions of QBWIZ.
  4.    ' You can compile this using the CREATE.BAT file.
  5.  
  6.    ' The functions REDIRECTION%, CRT$, FORECOLOR%, BACKCOLOR%, SCREENWIDTH%
  7.    ' and SCREENHEIGHT% are used.
  8.  
  9.    DEFINT A-Z
  10.    PRINT "This is an example program that uses a few of the functions provided"
  11.    PRINT "by the ACCESS library in the QBWIZ package."
  12.    PRINT
  13.    IF REDIRECTION% THEN
  14.       PRINT "Output has been redirected."
  15.       PRINT "No screen information will be printed."
  16.    ELSE
  17.       PRINT "Output is going to the screen."
  18.       PRINT
  19.       PRINT "Display type: "; CRT$
  20.       PRINT "Screen size :"; SCREENHEIGHT%; "by"; SCREENWIDTH%
  21.       PRINT "Current foreground color:"; FORECOLOR%
  22.       PRINT "Current background color:"; BACKCOLOR%
  23.    END IF
  24.